home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 4 #11
/
Commodore_Disk_User_Vol.4_11_1991_-.d64
/
bud end
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
6KB
|
184 lines
100 open2,8,2,"0:budget data 2,s,r"
110 forty=1to192
120 input#2,y$(ty)
130 input#2,y(ty)
140 nextty
150 forty=1to192
160 input#2,h$(ty)
170 input#2,h(ty)
180 nextty
190 input#2,gt$
200 forty=1to12
210 input#2,ym$(ty)
220 input#2,ym(ty)
230 nextty
240 forty=1to12
250 input#2,hm$(ty)
260 input#2,hm(ty)
270 nextty
280 forty=1to16
290 input#2,ys$(ty)
300 input#2,ys(ty)
310 nextty
320 forty=1to16
330 input#2,hs$(ty)
340 input#2,hs(ty)
350 nextty:close2:a$=str$(cm+4):ac$=right$(a$,2)
360 la$="":lb$=" ":lc$=" ":ld$=" ":le$=" ":pe$=" actual ":pe=1
370 lf$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":lk$="":sm$="sub [205] month"
380 st$="subt":mt$="monthly tot":mi=12
390 ifam=0then470
400 print"[147]you have amended some figures in the"
410 print"program . do you wish to store them "
420 print"(y)es or (n)0 ?"
430 getqu$:ifqu$=""then430
440 ifqu$="n"thenprint"are you sure you do not want too (y/n) ?":goto530
450 ifqu$="y"then480
460 goto430
470 goto760
480 print" place'data'disc in the disc drive"
490 print"press space bar [146] to save the data"
500 getqu$:ifqu$=""then500
510 ifqu$<>" "then500
520 print"[147]saving budget data[144]":goto560
530 getqu$:ifqu$="n"then400
540 ifqu$="y"then470
550 goto530
560 open2,8,2,"@0:budget data,s,w"
570 print#2,sr
580 print#2,cm
590 fora=1to192
600 print#2,y$(a)
610 nexta:fora=1to192:print#2,h$(a):next:fora=1to12
620 print#2,sr$(a)
630 print#2,ss$(a)
640 print#2,su$(a)
650 next a
660 forb=1to16
670 print#2,ba$(b)
680 print#2,bb$(b)
690 print#2,bc$(b)
700 next b
710 print#2,gt(1)
720 print#2,gt(2)
730 print#2,gt(3)
740 close 2
750 print"[158]":goto470
760 print"[147]budget calc[157][157][157][157][157][157][157][157][157][157][157][163][163][163][163][163][163] [163][163][163][163]"
770 print"print out:-":print" [164][164][164][164]";
780 print"actual figures...................... f1 [146]"
790 print" [164][164][164][164]";
800 print"actual & estimated figures.......... f3 [146]"
810 print" [164][164][164][164]";
820 print"estimated figures only.............. f5 [146]"
830 print" [164][164][164][164]";
840 print"return to the spreadsheet........... f7 [146]"
850 print:print" [164][164][164]";
860 print"end budget calc...................... _ [146]"
870 print"what is your option?"
880 getqx$:ifqx$=""then880
890 ifqx$="[136]"thenprint"[145] please wait":lo=1:load"budget calc",8,1
900 forty=1to192:ifval(y$(ty))<>y(ty)theny$(ty)="000":y(ty)=0:nextty
910 forty=1to192:ifval(h$(ty))<>h(ty)thenh$(ty)="000":h(ty)=0:nextty
920 ifqx$="_"thenprint"[147]":goto1110
930 ifqx$="[133]"orqx$="[134]"orqx$="[135]"then950
940 goto880
950 goto970
960 end
970 print"please set up paper feed and turn on"
980 print" the printer!"
990 fortp=1to2000:nexttp
1000 fort=1to2000:next:print"press any key to continue"
1010 get qu$:ifqu$=""then1010
1020 print"[145] [145]"
1030 open3,4:print#3:ifst=-128then1050
1040 close3:goto1180
1050 close3:print"[147] b u d g e t p r o g r a m m e"
1060 print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
1070 print"please turn on the printer if you want"
1080 print"a printout and press 'space bar'"
1090 print"or any other to end"
1100 getwq$:ifwq$=""then1100
1110 print"[147] b u d g e t p r o g r a m m e"
1120 print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
1130 print"[164][164][164][164][164][164][164] [164][164][164][164][164] [164] [164]"
1140 print"systemsreset[146] ? ( y[146] / n[146] )"
1150 getqa$:ifqa$=""then1150
1160 ifqa$="y"thensys64738
1170 goto390
1180 ifqx$="[135]"then1440
1190 ifqx$="[134]"then1660
1200 ifqx$="[133]"then1210
1210 forty=1to192
1220 ify$(ty)="000"theny$(ty)=" "
1230 nextty
1240 forzz=1to16:s$(zz)=mid$(j$(zz),1,13):nextzz
1250 open3,4:print#3,chr$(14)" budget plan for"cm+3;"/";ac$;chr$(15);" (actual)";
1260 print#3,":";chr$(14);mz$;chr$(15):cmd3
1270 print"[147]";sm$;" ";m$(1);" ";m$(2);" ";m$(3);" ";m$(4);" ";m$(5);" ";
1280 printm$(6);" ";m$(7);" ";m$(8);" ";m$(9);" ";m$(10);" "m$(11);" ";
1290 printm$(12);" ";st$
1300 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
1310 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164]":print
1320 f=-11:fors=1to16:f=f+12:nb(s)=nb(s)+1
1330 prints$(s);:forsp=1to(nb(s)+nc(s)):print" ";:nextsp:print" ";:forpo=ftof+11
1340 printy$(po);" ";
1350 nextpo:print" ";ys$(s):print:nexts
1360 goto1370
1370 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
1380 print"[164][164][164][164][164][164][164][164][164][164][164][164][164]":print
1390 printmt$;lb$;:forpo=1to11:printym$(po);" ";:nextpo:printym$(12);
1400 printchr$(14)gt$
1410 printchr$(15)
1420 print#3:close3
1430 goto390
1440 forty=1to192
1450 ifh$(ty)="000"thenh$(ty)=" "
1460 nextty
1470 forzz=1to16:s$(zz)=mid$(j$(zz),1,13):nextzz
1480 open3,4:print#3,chr$(14)" budget plan for"cm+3;"/";ac$;chr$(15)"( estimated )";
1490 print#3,chr$(14);" :";mz$;chr$(15):cmd3
1500 print"[147]";sm$;" ";m$(1);" ";m$(2);" ";m$(3);" ";m$(4);" ";m$(5);" ";
1510 printm$(6);" ";m$(7);" ";m$(8);" ";m$(9);" ";m$(10);" "m$(11);" ";
1520 printm$(12);" ";st$
1530 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
1540 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164]":print
1550 f=-11:fors=1to16:f=f+12:nb(s)=nb(s)+1
1560 prints$(s);:forsp=1to(nb(s)+nc(s)):print" ";:nextsp:printla$;:forpo=ftof+11:printh$(po);" ";
1570 nextpo:print" ";hs$(s):print:nexts
1580 goto1590
1590 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
1600 print"[164][164][164][164][164][164][164][164][164][164][164][164][164]":print
1610 printmt$;" ";lb$;:forpo=1to11:printhm$(po);" ";:nextpo:printhm$(12);
1620 printchr$(14)gh$
1630 printchr$(15)
1640 print#3:close3
1650 goto760
1660 forty=1to192
1670 ifh$(ty)="000"thenh$(ty)=" "
1680 ify$(ty)="000"theny$(ty)=" "
1690 nextty
1700 forzz=1to16:s$(zz)=mid$(j$(zz),1,13):nextzz
1710 open3,4:print#3,chr$(14)" budget plan for"cm+3;"/";ac$;chr$(15)" (actual/esti)";
1720 print#3,chr$(14);" :";mz$;chr$(15):cmd3
1730 print"[147]";sm$;" ";m$(1);" ";m$(2);" ";m$(3);" ";m$(4);" ";m$(5);" ";
1740 printm$(6);" ";m$(7);" ";m$(8);" ";m$(9);" ";m$(10);" "m$(11);" ";
1750 printm$(12);" ";st$
1760 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
1770 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164]":print
1780 f=-11:fors=1to16:f=f+12:nb(s)=nb(s)+1:print
1790 prints$(s);:forsp=1to(nb(s)+nc(s)):print" ";:nextsp:printlb$;:forpo=ftof+11:printy$(po);" ";
1800 nextpo:print" ";ys$(s)
1810 print" ";:forro=ftof+11:printh$(ro);" ";:nextro:print" ";hs$(s):nexts
1820 goto1830
1830 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
1840 print"[164][164][164][164][164][164][164][164][164][164][164][164][164]":print
1850 printmt$;" ";lb$;:forpo=1to11:printym$(po);" ";:nextpo:printym$(12);
1860 printchr$(14)gt$
1870 printchr$(15)
1880 print" ";lb$;:forpo=1to11:printhm$(po);" ";:nextpo:printhm$(12);
1890 printchr$(14)gh$
1900 printchr$(15)
1910 print#3:close3
1920 goto760